home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / The GIMP 2.2.8 / gimp-2.2.8-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / gimp-labels.scm < prev    next >
Encoding:
Text File  |  2005-06-30  |  7.0 KB  |  175 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; www.gimp.org web labels
  5. ; Copyright (c) 1997 Adrian Likins
  6. ; aklikins@eos.ncsu.edu
  7. ;
  8. ; based on a idea by jtl (Jens  Lautenbacher)
  9. ; and improved by jtl
  10. ;
  11. ; This program is free software; you can redistribute it and/or modify
  12. ; it under the terms of the GNU General Public License as published by
  13. ; the Free Software Foundation; either version 2 of the License, or
  14. ; (at your option) any later version.
  15. ; 
  16. ; This program is distributed in the hope that it will be useful,
  17. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ; GNU General Public License for more details.
  20. ; 
  21. ; You should have received a copy of the GNU General Public License
  22. ; along with this program; if not, write to the Free Software
  23. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24. ;
  25. ;  **NOTE**  This fonts use some very common fonts, that are typically
  26. ;  bitmap fonts on most installations. If you want better quality versions
  27. ;  you need to grab the urw font package form www.gimp.org/fonts.html
  28. ;  and install as indicated. This will replace the some current bitmap fonts
  29. ;  with higher quality vector fonts. This is how the actual www.gimp.org
  30. ;  logos were created.
  31. ;
  32. ; ************************************************************************
  33. ; Changed on Feb 4, 1999 by Piet van Oostrum <piet@cs.uu.nl>
  34. ; For use with GIMP 1.1.
  35. ; All calls to gimp-text-* have been converted to use the *-fontname form.
  36. ; The corresponding parameters have been replaced by an SF-FONT parameter.
  37. ; ************************************************************************
  38.  
  39.  
  40. (define (script-fu-labels-gimp-org text font font-size text-color shadow-color bg-color rm-bg index num-colors color-thresh yoff xoff height)
  41.   (let* ((img (car (gimp-image-new 125 height RGB)))
  42.      (text-layer (car (gimp-text-fontname img -1 xoff yoff text 0
  43.                      TRUE font-size PIXELS
  44.                      font)))
  45.      (bg-layer (car (gimp-layer-new  img 125 height
  46.                      RGB-IMAGE "Background" 100 NORMAL-MODE)))
  47.      (shadow-layer (car (gimp-layer-copy text-layer TRUE))))
  48.  
  49.     (gimp-context-push)
  50.  
  51.     (gimp-image-undo-disable img)
  52.     (gimp-image-add-layer img shadow-layer 1)
  53.     (gimp-image-add-layer img bg-layer 2)
  54.     
  55.     (gimp-layer-set-preserve-trans text-layer TRUE)
  56.     (gimp-layer-set-preserve-trans shadow-layer TRUE)
  57.     
  58.     (gimp-context-set-background text-color)
  59.     (gimp-edit-fill text-layer BACKGROUND-FILL)
  60.  
  61.     (gimp-context-set-background bg-color)
  62.     (gimp-edit-fill bg-layer BACKGROUND-FILL)
  63.  
  64.     (gimp-context-set-background shadow-color)
  65.     (gimp-edit-fill shadow-layer BACKGROUND-FILL)
  66.     (gimp-layer-translate shadow-layer 1 1)
  67.  
  68.     (set! text-layer (car (gimp-image-flatten img)))
  69.     (gimp-layer-add-alpha text-layer)
  70.  
  71.     (if (= rm-bg TRUE)
  72.     (begin
  73.       (gimp-by-color-select text-layer bg-color
  74.                 color-thresh CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
  75.       (gimp-edit-clear text-layer)
  76.       (gimp-selection-none img)))
  77.     
  78.     (if (= index TRUE)
  79.        (gimp-image-convert-indexed img FS-DITHER MAKE-PALETTE num-colors
  80.                     FALSE FALSE ""))
  81.     (gimp-image-undo-enable img)
  82.     (gimp-display-new img)
  83.  
  84.     (gimp-context-pop)))
  85.  
  86.  
  87. ;;;(define (script-fu-tube-button-label-gimp-org text rm-bg index)
  88. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 14 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 8 0 30))
  89. ;;;
  90. ;;;(define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  91. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 12 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 7 0 24))
  92. ;;;  
  93. ;;;(define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  94. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 10 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 6 0 18))
  95. ;;;
  96.  
  97. (define (script-fu-tube-button-label-gimp-org text rm-bg index)
  98.   (script-fu-labels-gimp-org text "helvetica" 14 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 8 0 30))
  99.  
  100. (define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  101.   (script-fu-labels-gimp-org text "helvetica" 12 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 7 10 24))
  102.   
  103. (define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  104.   (script-fu-labels-gimp-org text "helvetica" 10 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 6 20 18))
  105.  
  106.  
  107. (script-fu-register "script-fu-tube-button-label-gimp-org"
  108.             _"_Tube Button Label..."
  109.             "Tube Button Label Header for gimp.org"
  110.             "Adrian Likins & Jens Lautenbacher"
  111.             "Adrian Likins & Jens Lautenbacher"
  112.             "1997"
  113.             ""
  114.             SF-STRING _"Text"              "?"
  115.             SF-TOGGLE _"Remove background" TRUE
  116.             SF-TOGGLE _"Index image"       TRUE)
  117.  
  118. (script-fu-menu-register "script-fu-tube-button-label-gimp-org"
  119.              _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
  120.  
  121.  
  122. (script-fu-register "script-fu-tube-subbutton-label-gimp-org"
  123.             _"T_ube Sub-Button Label..."
  124.             "Tube Button Label Header for gimp.org"
  125.             "Adrian Likins & Jens Lautenbacher"
  126.             "Adrian Likins & Jens Lautenbacher"
  127.             "1997"
  128.             ""
  129.             SF-STRING _"Text"              "?"
  130.             SF-TOGGLE _"Remove background" TRUE
  131.             SF-TOGGLE _"Index image"       TRUE)
  132.  
  133. (script-fu-menu-register "script-fu-tube-subbutton-label-gimp-org"
  134.              _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
  135.  
  136.  
  137. (script-fu-register "script-fu-tube-subsubbutton-label-gimp-org"
  138.             _"Tub_e Sub-Sub-Button Label..."
  139.             "Tube Button Label Header for gimp.org"
  140.             "Adrian Likins & Jens Lautenbacher"
  141.             "Adrian Likins & Jens Lautenbacher"
  142.             "1997"
  143.             ""
  144.             SF-STRING _"Text"              "?"
  145.             SF-TOGGLE _"Remove background" TRUE
  146.             SF-TOGGLE _"Index image"       TRUE)
  147.  
  148. (script-fu-menu-register "script-fu-tube-subsubbutton-label-gimp-org"
  149.              _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
  150.  
  151.  
  152. (script-fu-register "script-fu-labels-gimp-org"
  153.             _"_General Tube Labels..."
  154.             "Tube Button Label Header for gimp.org"
  155.             "Adrian Likins & Jens Lautenbacher"
  156.             "Adrian Likins & Jens Lautenbacher"
  157.             "1997"
  158.             ""
  159.             SF-STRING     _"Text"               "Gimp.Org"
  160.             SF-FONT       _"Font"               "Sans"
  161.             SF-ADJUSTMENT _"Font size (pixels)" '(18 2 1000 1 10 0 1)
  162.              SF-COLOR      _"Text color"         '(130 165 235)
  163.              SF-COLOR      _"Shadow color"       '(0 0 0)
  164.             SF-COLOR      _"Background color"   '(255 255 255)
  165.             SF-TOGGLE     _"Remove background"  TRUE
  166.             SF-TOGGLE     _"Index image"        TRUE
  167.             SF-ADJUSTMENT _"Number of colors"   '(15 2 255 1 10 0 1)
  168.             SF-ADJUSTMENT _"Select-by-color threshold" '(1 1 256 1 10 0 1)
  169.             SF-ADJUSTMENT _"Offset X"           '(8 0 50 1 10 0 1)
  170.             SF-ADJUSTMENT _"Offset Y"           '(0 0 50 1 10 0 1)
  171.             SF-ADJUSTMENT _"Height"             '(30 2 1000 1 10 0 1))
  172.  
  173. (script-fu-menu-register "script-fu-labels-gimp-org"
  174.              _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
  175.